home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / REPEATLP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  297 b   |  15 lines
  1. PROGRAM repeat_loop_example;
  2.  
  3. VAR count : INTEGER;
  4.  
  5. BEGIN
  6.   count := 4;
  7.   REPEAT
  8.     WRITE('This is in the ');
  9.     WRITE('REPEAT loop, and ');
  10.     WRITE('the index is',count:4);
  11.     WRITELN;
  12.     count := count + 2;
  13.   UNTIL count = 20;
  14.   WRITELN(' We have completed the loop ');
  15. END.